inherited fmGetRunningNo: TfmGetRunningNo
  ClientHeight = 207
  ClientWidth = 314
  Caption = 'Get Running No.'
  OnCreate = UniFormCreate
  ExplicitWidth = 320
  ExplicitHeight = 240
  PixelsPerInch = 96
  TextHeight = 13
  inherited tolDialog_: TUniToolBar
    Width = 314
    ExplicitWidth = 314
  end
  object grdGetRunningNo: TUniDBGrid [1]
    Left = 0
    Top = 40
    Width = 314
    Height = 167
    DataSource = srcDetails
    ReadOnly = True
    LoadMask.Message = 'Loading data...'
    Align = alClient
    TabOrder = 1
    Columns = <
      item
        FieldName = 'fldDefault'
        Title.Caption = 'Default'
        Width = 55
      end
      item
        FieldName = 'fldKeyFieldNo'
        Title.Caption = 'KeyFieldNo'
        Width = 200
      end>
  end
  inherited imaSystem: TUniImageListAdapter
    Left = 142
    Top = 163
  end
  inherited imlSystem: TUniNativeImageList
    Left = 174
    Top = 163
  end
  inherited atlDialog: TActionList
    Left = 142
    Top = 131
  end
  object srcDetails: TDataSource
    Left = 270
    Top = 131
  end
  object dsMultiGenNo: TADODataSet
    Connection = UniMainModule.adcConnection
    LockType = ltBatchOptimistic
    CommandText = 
      'select '#13#10'  fldKeyFieldNo, '#13#10'  fldKeyFieldNoFormat = '#39'01234567890' +
      '123456789'#39', '#13#10'  fldAutoGenNoDate, '#13#10'  fldSeqNo, '#13#10'  fldDefault '#13 +
      #10'from '#13#10'  tblSystemParametersAutoGenNoDetails'#13#10'where '#13#10'  1 = 2  '
    EnableBCD = False
    Parameters = <>
    Left = 238
    Top = 131
    object dsMultiGenNofldKeyFieldNo: TStringField
      FieldName = 'fldKeyFieldNo'
    end
    object dsMultiGenNofldKeyFieldNoFormat: TStringField
      FieldName = 'fldKeyFieldNoFormat'
      ReadOnly = True
    end
    object dsMultiGenNofldAutoGenNoDate: TDateTimeField
      FieldName = 'fldAutoGenNoDate'
    end
    object dsMultiGenNofldSeqNo: TIntegerField
      FieldName = 'fldSeqNo'
    end
    object dsMultiGenNofldDefault: TBooleanField
      FieldName = 'fldDefault'
      DisplayValues = 'T;F'
    end
  end
  object cmdDoGetGenNo: TADOCommand
    CommandText = 'SP_DOGETGENNO;1'
    CommandType = cmdStoredProc
    Connection = UniMainModule.adcConnection
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@FUNCTIONCODE'
        Attributes = [paNullable]
        DataType = ftString
        Size = 200
        Value = Null
      end
      item
        Name = '@DDATE'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@KEYFIELDNO'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 30
        Value = Null
      end
      item
        Name = '@KEYFIELDNOFORMAT'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 30
        Value = Null
      end
      item
        Name = '@BMULTIGENNO'
        Attributes = [paNullable]
        DataType = ftBoolean
        Direction = pdInputOutput
        Value = Null
      end>
    Left = 174
    Top = 131
  end
  object cmdUpdateGenNo: TADOCommand
    CommandText = 'SP_UPDATEGENNO;1'
    CommandType = cmdStoredProc
    Connection = UniMainModule.adcConnection
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@FUNCTIONCODE'
        Attributes = [paNullable]
        DataType = ftString
        Size = 100
        Value = Null
      end
      item
        Name = '@DDATE'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@KEYFIELDNO'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 30
        Value = Null
      end
      item
        Name = '@BMULTIGENNO'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@ISEQNO'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@BDEFAULT'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end>
    Left = 206
    Top = 131
  end
end
